home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / qbfaqr01.zip / GETCLR.BAS < prev    next >
BASIC Source File  |  1992-08-10  |  323b  |  14 lines
  1. 'Date: 05-19-92 (02:38)
  2. 'From: RICH GELDREICH
  3.  
  4. 'To get the original red, green, & blue color values from a VGA
  5. 'adaptor, you could use this:
  6.  
  7.     Out &h3c7, Attribute
  8.     Out &h3c8, Attribute
  9.     Red=inp(&H3c9)
  10.     Green=inp(&h3c9)
  11.     Blue=inp(&h3c9)
  12.  
  13. '    Where "attribute" is the color you want to inspect.
  14.